home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Deutsche Edition 1
/
Deutsche Edition 1.iso
/
amok
/
011-020
/
amok19
/
qtext
/
qtext.dok
< prev
next >
Wrap
Text File
|
1993-11-04
|
1KB
|
45 lines
Q T E X T
===============
QText ist ähnlich wie WarpText ein schnelles Textausgabemodul. Im Gegensatz
zu Warptext ist es kürzer, einfacher und genauso schnell.
Die Prozedur:
PROCEDURE QText(x{0},y{1}: INTEGER;
str{8}: ADDRESS;
bm{9}: BitMapPtr;
tf{10}: TextFontPtr);
Gibt die Zeichenkette, auf die str zeigt, aus. Dabei muß das letzte Zeichen
ein 0C sein (bei Modula normalerweise der Fall).
x gibt die x-Koordinate in Zeichenbreiten an. Ist x also z.B. 3, so wird
der String an die Pixel-Position 24 geschrieben. y ist die y-Koordinate,
jedoch diesmal in Pixels und NICHT in Zeichenbreiten.
bm zeigt auf die BitMap, in der die Zeichenkette ausgegeben werden soll.
Dabei wird nur in Plane # 0 geschrieben.
tf muß auf einen 8x8 Pixel großen Zeichensatz (z.B. Topaz 8), der zuvor mit
OpenFont() geöffnet wurde, zeigen.
QTextDemo ist ein kleines Beispielprogramm, das die Geschwindigkeit und
Benutzung der Textausgaberoutine demonstriert.
QText.asm ist der Profimat-Quelltext der Routine. QText.def & QText.mod die
Modula-implementation und QText.sym & QText.obj die compilierten Dateien.
QText ist Public-Domain. Wer es in anderen PD-Programmen verwenden will,
kann dies tun. Um es in kommerziell vertriebenen Programmen benutzen zu
dürfen, ist eine schriftliche Genehmigung von mir nötig.
--- Fridtjof.